home *** CD-ROM | disk | FTP | other *** search
- 0 print"[147][144]":poke53280,6:poke53281,1
- 1 print" commodares....farm figures "
- 2 rem farm figures
- 3 rem solution by
- 4 rem keith kushner
- 5 rem
- 10 forc=1to9:fors=1to29:p=100-(c+s):on-(c*10+s*3+p*.5=100)gosub20:nexts,c:end
- 20 print c;"cows";s;"sheep";p;"pigs" :return
-